home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.27
/
wbarg
/
unittester.p
< prev
next >
Wrap
Text File
|
1995-04-23
|
686b
|
33 lines
{ Programm zu testen der Unit WBARG
Öffnet ein Fenster, auf dem versucht wird das mit Shift aufgerufene
File als ASCII text auszugeben. Das File sollte möglichst auch ein
ASCII-Text sein ! }
PROGRAM Wbargtester;
FROM mytools USES wbarg;
VAR i:INTEGER;
f:TEXT;
s:STRING;
BEGIN
IF FromWB THEN
BEGIN
Reset(input,'CON:0/0/640/256/UNIT_WBArg_tester');
output:=input;
reset(f,Getwbarg(2)); {2. Argument holen (1.Argument ist Filename selbst)}
WHILE NOT eof(f) DO
BEGIN
read(f,s);
writeln(s);
END;
close(f);
writeln('< Return >');
readln(i);
Close(Input); { Fenster schließen }
END;
END.